home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Graphics / GFX.asm < prev    next >
Assembly Source File  |  1991-04-16  |  665b  |  38 lines
  1. *
  2. *    GFX.asm for PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the procedures and functions
  6. *    defined in Include/Graphics/GFX.i
  7. *
  8.  
  9.     SECTION PCQ_Runtime,CODE
  10.  
  11.     XREF    _GfxBase
  12.  
  13.  
  14.     XREF    _LVOInitBitMap
  15.     XDEF    _InitBitMap
  16. _InitBitMap
  17.     move.l    d2,-(sp)
  18.     move.w    8(sp),d2
  19.     move.w    10(sp),d1
  20.     move.w    12(sp),d0
  21.     move.l    14(sp),a0
  22.     move.l    _GfxBase,a6
  23.     jsr    _LVOInitBitMap(a6)
  24.     move.l    (sp)+,d2
  25.     rts
  26.  
  27.     XDEF    _RASSIZE
  28. _RASSIZE
  29.         move.w  4(sp),d0    ; d0 := h
  30.         move.w  6(sp),d1    ; d1 := w
  31.     add.w    #15,d1        ; d1 := h + 15
  32.     lsr.w    #3,d1        ; d1 := (h + 15) >> 3
  33.     and.w    #$FFFE,d1    ; d1 := ((h + 15) >> 3) & $FFFE
  34.     mulu    d1,d0        ; d0 := d0 * d1
  35.     rts
  36.  
  37.     END
  38.